home *** CD-ROM | disk | FTP | other *** search
/ Tele-Info Vol. 2 / Tele-Info Vol. 2 (1997)(Tele-Info Verlag)(DE)[!].iso / Installieren < prev    next >
Text File  |  1997-03-17  |  7KB  |  232 lines
  1.  
  2. ; ---------------------------------------------------------------------
  3. ;
  4. ; $VER: TeleInfo Installer Script 2.0 (10.03.97)
  5. ;
  6. ; Script to install TeleInfo (german version)
  7. ;
  8. ; ---------------------------------------------------------------------
  9.  
  10. ; ---------------------------------------------------------------------
  11. ;
  12. ;   STRINGS (German)
  13. ;
  14. ; ---------------------------------------------------------------------
  15.  
  16.   (set #SourceDir "TeleInfo2CD:")
  17.   (set #SourceDataDir (tackon #SourceDir "Data"))
  18.   (set #TeleInfoPattern "TeleInfo#?")
  19.   (set #ExtraIndex "Z1.ind")
  20.   (set #TeleInfoDial "Dial.rexx")
  21.  
  22.  
  23.   (set #AskDestDir
  24.    (cat "Bitte wählen Sie das Verzeichnis, in dem TeleInfo "
  25.         "installiert werden soll. "
  26.         "Es wird automatisch ein neues Verzeichnis 'TeleInfo' "
  27.         "für das Programm und die Daten angelegt." )
  28.   )
  29.   (set #AskDestDirHelp
  30.    (cat "Für die Installation werden auf dem Ziellaufwerk "
  31.         "je nach Installation 1 bis 33 MByte "
  32.         "freier Speicherplatz benötigt.\n\n"
  33.         "Das Installationsprogramm erstellt in dem ausgewählten "
  34.         "Pfad ein neues Verzeichnis 'TeleInfo'. Alle Dateien "
  35.         "werden in dieses Verzeichnis kopiert.\n\n"
  36.         "Sollten Sie bereits Besitzer einer alten Version von TeleInfo "
  37.         "sein, so haben Sie die Möglichkeit, Ihre alten Daten ersetzen "
  38.         "zu lassen. Wählen Sie dazu das Verzeichnis aus, in dem sich "
  39.         "das alte TeleInfo-Verzeichnis befindent (d.h. das alte TeleInfo-"
  40.         "Verzeichnis muß in der Verzeichnisliste zu sehen sein - "
  41.         "wechseln Sie ***nicht*** in dieses Verzeichnis)\n\n"
  42.         "Sie können nach der Installation dem Verzeichnis natürlich "
  43.         "einen anderen Namen geben." )
  44.   )
  45.   (set #WhichPartsPrompt
  46.    (cat "Bitte wählen Sie aus, welche der folgenden "
  47.         "Installationsvarianten Sie installieren möchten:" )
  48.    )
  49.   (set #WhichPartsHelp
  50.    (cat "Wählen Sie die Variante, wie Sie TeleInfo installieren möchten:\n\n"
  51.         "Nur Link: Es wird nur ein Icon erzeugt, das Programm und alle Daten "
  52.         "bleiben auf der CD-Rom. Sehr langsam!!! (siehe auch 'Minimal')\n\n"
  53.         "Minimal: Hierbei werden alle Dateien, auch die Indexdateien, direkt "
  54.         "vom CD-Laufwerk gelesen. Dies führt zu sehr langen Wartezeiten "
  55.         "und ist nur zu empfehlen, wenn Sie über sehr wenig Festplattenspeicher "
  56.         "verfügen!\n\n"
  57.         "Standard: Bei dieser Einstellung werden die wichtigsten Indexdateien "
  58.         "auf Ihre Festplatte kopiert. Diese belegen 26 MByte. Dies ist die "
  59.         "empfohlene Einstellung für Systeme mit kleiner Festplatte.\n\n"
  60.         "Optimal: Es werden alle Indexdateien auf Ihre Festplatte kopiert. "
  61.         "Diese Option belegt gegenüber 'Standard' weitere 7 MByte - ingesamt "
  62.         "also 33 MByte. Sollten Sie über ausreichend Festplattenkapazität "
  63.         "verfügen, so sollten Sie diese Option wählen." )
  64.    )
  65.   (set #WhichPart0 "Nur Link  (1 KByte, nicht empfohlen!)")
  66.   (set #WhichPart1 "Minimal  (0,2 MByte, nicht empfohlen!)")
  67.   (set #WhichPart2 "Standard (26 MByte)")
  68.   (set #WhichPart3 "Optimal  (33 MByte)")
  69.  
  70.   (set #VorwahlPrompt
  71.    (cat "Bitte geben Sie Ihre Vorwahl ein. Diese wird für die "
  72.         "automatische Wahl per <Bearbeiten-Wählen> benötigt."
  73.    )
  74.   )
  75.   (set #VorwahlHelp
  76.    (cat "TeleInfo bietet die Möglichkeit, eine gefundene Telefonnummer "
  77.         "automatisch wählen zu lassen (per ARexx-Script Dial.rexx).\n"
  78.         "Dieses wird vom Installer so konfiguriert, daß bei Telefonnummern "
  79.         "in Ihrem Vorwahlbereich die Vorwahl automatisch ausgelassen wird.\n"
  80.         "Dazu müssen Sie die Ihre Vorwahl (etwa 030) eingeben."
  81.    )
  82.   )
  83. ; ---------------------------------------------------------------------
  84. ;
  85. ;   INSTALLATION SCRIPT - BEGIN
  86. ;
  87. ; ---------------------------------------------------------------------
  88.  
  89.  
  90. ;*** get OS version
  91. (set #osversion 3)
  92. (if (< (/ (getversion) 65536) 39) (set #osversion 2) )
  93. (if (< (/ (getversion) 65536) 36) (set #osversion 1) )
  94.  
  95. ;**** ask user which parts to copy (average & expert )
  96. (complete 3)
  97. (set whichparts 2)  ; default: Standard
  98. (if (> @user-level 0)
  99.  (
  100.     (set whichparts
  101.       (askchoice
  102.         (prompt #WhichPartsPrompt)
  103.         (help #WhichPartsHelp)
  104.         (choices #WhichPart0 #WhichPart1 #WhichPart2 #WhichPart3)
  105.         (default whichparts)
  106.       )
  107.     )
  108.  )
  109. ) ; if (userlevel)
  110.  
  111. ;**** ask user where to put TeleInfo
  112.  
  113. (set DestDir
  114.  (askdir
  115.   (prompt #AskDestDir )
  116.   (help #AskDestDirHelp )
  117.   (default "Work:")
  118.  )
  119. )
  120.  
  121. ; *** ask for Vorwahl (always, i.e. minimum user level 1)
  122. (set userlevel @user-level) (if (= 0 @user-level) (user 1))
  123. (set Vorwahl
  124.  (askstring
  125.   (prompt #VorwahlPrompt)
  126.   (help #VorwahlHelp)
  127.   (default "030")
  128.  )
  129. )
  130. (if (= 0 userlevel) (user 0))
  131. ;****
  132.  
  133. (set RealDest (tackon DestDir "TeleInfo"))
  134. (set RealDestData (tackon RealDest "Data"))
  135.  
  136. (if (= (exists RealDest) 0)
  137.  (makedir RealDest (infos))
  138. )
  139. (if (> whichparts 1)
  140.  (
  141.    (if (= (exists RealDestData) 0)
  142.     (makedir RealDestData)
  143.    )
  144.  )
  145. )
  146. ; *** copy main programm
  147. (complete 5)
  148.  
  149. (if (= whichparts 0)
  150.  (
  151.    (copyfiles
  152.     (source (tackon #SourceDir "Extra"))
  153.     (dest RealDest)
  154.     (choices "TeleInfo.info")
  155.    )
  156.  )
  157.  (
  158.    (copyfiles
  159.     (source #SourceDir)
  160.     (dest RealDest)
  161.     (pattern #TeleInfoPattern)
  162.     (infos)
  163.    )
  164.  )
  165. )
  166. ; *** copy main index files
  167.  
  168. (complete 20)
  169. (if (= whichparts 1)
  170.  (
  171.   (tooltype
  172.    (dest (tackon RealDest "TeleInfo"))
  173.    (settooltype "INDEX" "TeleInfo2CD:Data")
  174.   )
  175.  )
  176. )
  177.  
  178. (if (> whichparts 1)
  179.  (
  180.    (copyfiles
  181.     (source #SourceDataDir)
  182.     (dest RealDestData)
  183.     (all)
  184.    )
  185.  )
  186. )
  187. (if (= whichparts 2)    ; falls "Standard" gewählt, "z1.ind" (Optimal) entfernen!
  188.  (                      ; ist vielleicht noch von einer alten Version übrig
  189.     (delete (tackon RealDestData "z1.ind")
  190.         (optional "force")
  191.     )
  192.  )
  193. )
  194. ; *** copy additional index file(s)
  195.  
  196. (complete 85)
  197. (if (> whichparts 2)
  198.  (
  199.    (copyfiles
  200.     (source #SourceDir)
  201.     (dest RealDestData)
  202.     (choices #ExtraIndex)
  203.    )
  204.  )
  205. )
  206.  
  207. ; *** assemble and create Dial.rexx
  208. (complete 95)
  209. (textfile
  210.     (dest (tackon RealDest #TeleInfoDial))
  211.     (include (tackon #SourceDir "Extra/Dial1.txt"))
  212.     (append Vorwahl)
  213.     (include (tackon #SourceDir "Extra/Dial2.txt"))
  214. )
  215.  
  216. ; *** assemble and create ENVARC:TeleInfo.path
  217. ;(complete 98)
  218. ;(textfile
  219. ;    (dest "ENVARC:TeleInfo.path")
  220. ;    (append RealDest)
  221. ;)
  222.  
  223. (set @default-dest RealDest)
  224. (complete 100)
  225.  
  226. ; ---------------------------------------------------------------------
  227. ;
  228. ;   INSTALLATION SCRIPT - END
  229. ;
  230. ; ---------------------------------------------------------------------
  231.  
  232.